home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / mui / SmartInfoSrc.lha / sfs / sekalaiset.asm < prev    next >
Encoding:
Assembly Source File  |  1999-12-02  |  3.8 KB  |  205 lines
  1. putchar move.b    d0,(a3)+
  2.     rts
  3.  
  4. *---------------------------------------*
  5. *    @TeeObjekti_Checkmark        *
  6. *---------------------------------------*
  7.  
  8. TeeObjekti_Checkmark:
  9.     move.l    d1,-(sp)
  10.     MOVEQ.L    #MUIO_Checkmark,D0
  11.     MOVE.L    SP,A0
  12.     JSR    _LVOMUI_MakeObjectA(A6)
  13.     MOVE.L    D0,D2
  14.     ADDQ.W    #4,SP
  15.     beq.b    .x
  16.     MOVE.L    intui(A4),A6
  17.     MOVE.L    D0,A0
  18.     LEA    AddCheckMarkTags-t(A5),A1
  19.     JSR    _LVOSetAttrsA(A6)
  20.     MOVE.L    muimaster(A4),A6
  21.     MOVE.L    D2,D0
  22. .x    RTS
  23.  
  24. *---------------------------------------*
  25. *    @TeeObjekti_Label        *
  26. *---------------------------------------*
  27.  
  28. TeeObjekti_Label:
  29.     MOVE.L    localebase(A4),A6
  30.     MOVE.L    catalog(A4),A0
  31.     JSR    _LVOGetCatalogStr(A6)
  32. TeeObjekti_Teksti:
  33.     MOVE.L    muimaster(A4),A6
  34.     MOVE.L    D2,-(SP)
  35.     MOVE.L    D0,-(SP)
  36.     MOVE.L    SP,A0
  37.     MOVE.L    #MUIO_Label,D0
  38.     JSR    _LVOMUI_MakeObjectA(A6)
  39.     ADDQ.L    #8,SP
  40.     RTS
  41.  
  42. *---------------------------------------*
  43. *    @TeeObjekti            *
  44. *---------------------------------------*
  45.  
  46. TeeObjekti:
  47.     move.l    muimaster(a4),a6
  48.     CLR.L    -(SP)
  49.     MOVE.L    D1,-(SP)
  50.     MOVE.L    SP,A0
  51.     JSR    _LVOMUI_MakeObjectA(A6)
  52.     ADDQ.W    #8,SP
  53.     MOVE.L    D0,D2
  54.     beq.b    .x
  55.     MOVE.L    intui(A4),A6
  56.     MOVE.L    D0,A0
  57.     LEA    AddHelpStringTags-t(A5),A1
  58.     JSR    _LVOSetAttrsA(A6)
  59.     MOVE.L    muimaster(A4),A6
  60.     MOVE.L    D2,D0
  61. .x    RTS
  62.  
  63. *---------------------------------------*
  64. *    @TeeNimiObjekti            *
  65. *---------------------------------------*
  66.  
  67. TeeNimiObjekti:
  68.     move.l    muimaster(a4),a6
  69.     move.l    d1,-(sp)
  70.     move.l    d0,-(sp)
  71.     move.l    sp,a0
  72.     move.l    #MUIO_Label,d0
  73.     jsr    _LVOMUI_MakeObjectA(a6)
  74.     addq.w    #8,sp
  75.     rts
  76.  
  77. *---------------------------------------*
  78. *    @NukuHyvin            *
  79. *---------------------------------------*
  80.  
  81. NukuHyvin:
  82.     move.l    intui(a4),a6
  83.     move.l    App(a4),a0
  84.     SETI    MUIA_Application_Sleep,TRUE
  85.     rts
  86.  
  87. *---------------------------------------*
  88. *    @Huomenta            *
  89. *---------------------------------------*
  90.  
  91. Huomenta:
  92.     move.l    intui(a4),a6
  93.     move.l    App(a4),a0
  94.     SETI    MUIA_Application_Sleep,FALSE
  95.     rts
  96.  
  97. *---------------------------------------*
  98. *    @AvaaIkkuna            *
  99. *---------------------------------------*
  100.  
  101. AvaaIkkuna:
  102.     move.l    intui(a4),a6
  103.     move.l    a0,d2
  104.     SETI    MUIA_Window_Open,TRUE
  105.     move.l    d2,a0
  106.     move.l    #MUIA_Window_Open,d0
  107.     lea    lfWindowOpen(a4),a1
  108.     jsr    _LVOGetAttr(a6)
  109.     tst.l    lfWindowOpen(a4)
  110.     beq    AppCreationError
  111.     rts
  112.  
  113. *---------------------------------------*
  114. *    @AllocVecPooled            *
  115. *                    *
  116. *    INPUT                *
  117. *                    *
  118. *    D0 - muistialueen koko        *
  119. *                    *
  120. *    RESULT                *
  121. *                    *
  122. *    D0 - uusi muistialue tai nolla    *
  123. *    A0 - uusi muistialue        *
  124. *---------------------------------------*
  125.  
  126. AllocVecPooled:
  127.     move.l    exec(a4),a6
  128.     addq.l    #4,d0
  129.     move.l    d0,(a4)
  130.     move.l    PerusLammikko(a4),a0
  131.     jsr    _LVOAllocPooled(a6)
  132.     tst.l    d0
  133.     beq.b    .x
  134.     move.l    d0,a0
  135.     move.l    (a4),(a0)+
  136.     move.l    a0,d0
  137. .x    rts
  138.  
  139. *---------------------------------------*
  140. *    @FreeVecPooled            *
  141. *---------------------------------------*
  142.  
  143. FreeVecPooled:
  144.     move.l    a1,d0
  145.     beq.b    .x
  146.     move.l    -(a1),d0
  147.     move.l    PerusLammikko(a4),a0
  148.     jmp    _LVOFreePooled(a6)
  149. .x    rts
  150.  
  151. *---------------------------------------*
  152. *    @CheckCheckMark            *
  153. *---------------------------------------*
  154.  
  155. CheckCheckMark:
  156.     move.l    intui(a4),a6
  157.     move.l    #MUIA_Selected,d0
  158.     move.l    a4,a1
  159.     jmp    _LVOGetAttr(a6)
  160.  
  161. *-----------------------------------------------*
  162. *    @UseConfig                *
  163. *-----------------------------------------------*
  164.  
  165. UseConfig:
  166.     bsr    UseConfig2
  167.     bsr    LueKynät
  168.     st    bfUpdatePens(a4)
  169.     lea    PenSpec1(a4),a2
  170.     lea    ConfigData(a4),a3
  171.  
  172.     moveq    #2,d0
  173.  
  174. .loop1    move.l    (a2)+,a0
  175.     moveq    #7,d1
  176. .loop2    move.l    (a0)+,(a3)+
  177.     dbf    d1,.loop2
  178.     dbf    d0,.loop1
  179.  
  180.     lea    EnvConfigName-t(a5),a1
  181.     bsr    SaveConfig
  182.  
  183.     move.l    intui(a4),a6
  184.     move.l    WI_PrefsWindow-t(a5),a0
  185.     SETI    MUIA_Window_Open,FALSE
  186.  
  187.     move.l    MP_Kartta-t(a5),d7
  188.     beq.b    .x
  189.     TEE_METODI    D7,ReDrawMetodit
  190.     TEE_METODI    App(a4),TallennaAsetukset_ENV_Metodit
  191. .x    rts
  192.  
  193. *-----------------------------------------------*
  194. *    @UserConfig2                *
  195. *-----------------------------------------------*
  196.  
  197. UseConfig2:
  198.     move.l    intui(a4),a6
  199.     move.l    CH_Prefs_EmptyRecycled-t(a5),a0
  200.     lea    lfEmptyRecycled(a4),a1
  201.     jsr    _LVOGetAttr(a6)
  202.     move.l    CH_Prefs_Serialize-t(a5),a0
  203.     lea    lfSerialize(a4),a1
  204.     jmp    _LVOGetAttr(a6)
  205.